home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / p-sutils.arc / P / S AUTO PRINTER (.txt) next >
Commodore BASIC  |  1993-04-02  |  4KB  |  127 lines
  1. 10 GOSUB730:GOSUB570
  2. 20 DIMC%(3):C%(1)=28:C%(2)=5:C%(3)=154
  3. 30 Z$=CHR$(0):PP$=CHR$(27)+CHR$(74)+CHR$(4)
  4. 40 PRINT"[147]   **[154]* [158]PRINT SHOP GRAPHIC PRINTER [154]***"
  5. 50 PRINT"[154]PUT P.S. DISK IN DRIVE 0: & PRESS A KEY"
  6. 60 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":SYS49489
  7. 70 GETA$:IFA$=""THEN70
  8. 80 GOSUB280
  9. 90 OPEN4,4,4:PRINT#4,CHR$(27)CHR$(51)CHR$(16)CHR$(7);:OPEN15,8,15:GR=0
  10. 100 PRINT#4,CHR$(27)CHR$(77)CHR$(5)
  11. 110 C=0:N$="":P$=" "
  12. 120 GOSUB170:OPEN1,8,10,"0:"+N$(GR)+",P":F=1:GOSUB200:IFF<>0THEN120
  13. 130 GOSUB170:OPEN2,8,11,"0:"+N$(GR)+",P":F=2:GOSUB200:IFF<>0THEN120
  14. 140 GOSUB170:OPEN3,8,12,"0:"+N$(GR)+",P":F=3:GOSUB200:IFF<>0THEN120
  15. 150 ONCGOSUB250,260,270
  16. 160 CLOSE1:CLOSE2:CLOSE3:GOTO110
  17. 170 IFGR=RTHENONCGOSUB250,260,270:CLOSE1:CLOSE2:CLOSE3:SYS49489:GOTO190
  18. 180 RETURN
  19. 190 PRINT#4:CLOSE15:PRINTTAB(16)"[154]*DONE[146][154]*":FORX=0TO9000:NEXT:CLR:GOTO20
  20. 200 GR=GR+1:INPUT#15,A$,B$,C$,D$:IFA$<>"00"THENPRINTA$,B$,C$,D$:CLOSEF:RETURN
  21. 210 GET#F,A$,B$:IF(ASC(A$+Z$)=0ANDASC(B$+Z$)=88)THEN:C=C+1:PRINT"  "CHR$(C%(F))N$(GR-1);:F=0
  22. 220 IFF=0THENN$=N$(GR-1):N$=N$+"                    ":P$=P$+LEFT$(N$,17)
  23. 230 CLOSEF:RETURN
  24. 240 RETURN
  25. 250 PRINT:SYS49152:PRINT#4,P$;PP$:RETURN
  26. 260 PRINT:SYS49160:PRINT#4,P$;PP$:RETURN
  27. 270 PRINT:SYS49168:PRINT#4,P$;PP$:RETURN
  28. 280 DIMF$(120),N$(120),M$(120)
  29. 290 D=0:R=0:Q=0:E=0:G=1:EN=0
  30. 300 OPEN15,8,15,"IO":INPUT#15,EN,EM$:CLOSE15:IFEN=0THENGOTO320
  31. 310 IFEN>0THENPRINTEN;EM$;" OR UNFORMATTED DISK":END
  32. 320 OPEN1,8,0,"$0"
  33. 330 GET#1,A$,B$
  34. 340 GET#1,A$,B$,A$,B$:C=0:V=0
  35. 350 IFA$<>""THENC=ASC(A$)
  36. 360 IFB$<>""THENC=C+ASC(B$)*256
  37. 370 F$(D)=MID$(STR$(C),2)
  38. 380 GET#1,B$:IFST<>0THEN:GOTO530
  39. 390 IFB$<>CHR$(34)THEN380
  40. 400 GET#1,B$:IFB$<CHR$(32)THENB$=CHR$(32):GOTO430
  41. 410 IFB$=CHR$(96)ORB$=CHR$(192)THENB$=CHR$(45):GOTO430
  42. 420 IFB$>CHR$(96)THENB$=CHR$(42)
  43. 430 IFB$<>CHR$(34)THENN$(D)=N$(D)+B$:N$(D)=LEFT$(N$(D),16):GOTO400
  44. 440 GET#1,B$:IFB$=CHR$(32)THEN440
  45. 450 C$=""
  46. 460 C$=C$+B$:GET#1,B$
  47. 470 IFB$<>""THEN460
  48. 480 IFLEN(C$)<3THENC$=C$+CHR$(32)+CHR$(32)+CHR$(32)
  49. 490 M$(D)=LEFT$(C$,3)
  50. 500 IF(F$(D)="3"ANDM$(D)="PRG")THEND=D+1:R=R+1:GOTO520
  51. 510 N$(D)="":F$(D)="":M$(D)=""
  52. 520 IFST=0THEN340
  53. 530 CLOSE1
  54. 540 FORLO=0TOR-1:PRINTTAB(8);""F$(LO);SPC(4-LEN(F$(LO)));"";N$(LO);
  55. 550 PRINTSPC(17-LEN(N$(LO)));"[154]";M$(LO);"[146]"
  56. 560 NEXTLO:PRINTTAB(10)"**[154]*"R"GRAPHICS [154]***":RETURN
  57. 570 PRINT"[147][154][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  58. 590 PRINT"[194]    THE FIRST AUTOMATIC PRINT SHOP    [154][194]";
  59. 600 PRINT"[194]           GRAPHIC PRINTER            [154][194]";
  60. 610 PRINT"[194]          BETA RELEASE V1.0           [154][194]";
  61. 620 PRINT"[194][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][154][194]";
  62. 630 PRINT"[194]                                      [154][194]";
  63. 640 PRINT"[194]          BY: GREG SCHIEDLER          [154][194]";
  64. 650 PRINT"[194]          12906 DOWNS ROAD            [154][194]";
  65. 660 PRINT"[194]          MT. ANGEL, OR 97362         [154][194]";
  66. 670 PRINT"[194]                                      [154][194]";
  67. 680 PRINT"[194]    FOR NON[154] COMMODORE GRAPHICS &      [154][194]";
  68. 690 PRINT"[194]     GEMINI 10X / SG-10 PRINTER[146]       [154][194]";
  69. 700 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195]PRESS ANY KEY[146][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:POKE198,0:SYS49489
  70. 710 GETA$:IFA$=""THEN710
  71. 720 RETURN
  72. 730 POKE53280,0:POKE53281,0:PRINTCHR$(142)CHR$(8):PRINT"[147]"SPC(14)"PLEASE WAIT"
  73. 731 FORX=49152TO49574:READA:POKEX,A:NEXT:RETURN
  74. 740 DATA169,1,141,169,193,76,21,192
  75. 750 DATA169,2,141,169,193,76,21,192
  76. 760 DATA169,3,141,169,193,169,7,141
  77. 770 DATA174,193,162,0,138,157,178,193
  78. 780 DATA157,10,194,157,98,194,232,224
  79. 790 DATA88,208,242,169,8,141,172,193
  80. 800 DATA169,0,141,173,193,169,8,141
  81. 810 DATA171,193,162,1,32,198,255,32
  82. 820 DATA228,255,141,175,193,32,204,255
  83. 830 DATA162,2,32,198,255,32,228,255
  84. 840 DATA141,176,193,32,204,255,162,3
  85. 850 DATA32,198,255,32,228,255,141,177
  86. 860 DATA193,32,204,255,174,173,193,173
  87. 870 DATA175,193,24,10,141,175,193,189
  88. 880 DATA178,193,42,157,178,193,173,176
  89. 890 DATA193,24,10,141,176,193,189,10
  90. 900 DATA194,42,157,10,194,173,177,193
  91. 910 DATA24,10,141,177,193,189,98,194
  92. 920 DATA42,157,98,194,238,173,193,173
  93. 930 DATA173,193,201,88,240,8,206,171
  94. 940 DATA193,240,146,76,100,192,206,172
  95. 950 DATA193,240,3,76,48,192,32,204
  96. 960 DATA255,162,4,32,201,255,173,174
  97. 970 DATA193,201,1,208,31,162,0,189
  98. 980 DATA178,193,41,240,157,178,193,189
  99. 990 DATA10,194,41,240,157,10,194,189
  100. 1000 DATA98,194,41,240,157,98,194,232
  101. 1010 DATA224,88,208,227,173,169,193,141
  102. 1020 DATA170,193,32,54,193,162,0,189
  103. 1030 DATA178,193,32,210,255,232,224,88
  104. 1040 DATA208,245,206,170,193,240,43,32
  105. 1050 DATA68,193,32,54,193,162,0,189
  106. 1060 DATA10,194,32,210,255,232,224,88
  107. 1070 DATA208,245,206,170,193,240,19,32
  108. 1080 DATA68,193,32,54,193,162,0,189
  109. 1090 DATA98,194,32,210,255,232,224,88
  110. 1100 DATA208,245,169,13,32,210,255,206
  111. 1110 DATA174,193,240,6,32,204,255,76
  112. 1120 DATA26,192,32,204,255,96,162,0
  113. 1130 DATA189,163,193,32,210,255,232,224
  114. 1140 DATA4,208,245,96,162,0,169,32
  115. 1150 DATA32,210,255,232,224,10,208,246
  116. 1160 DATA96,32,134,193,169,9,141,5
  117. 1170 DATA212,169,30,141,15,212,169,130
  118. 1180 DATA141,1,212,169,15,141,24,212
  119. 1190 DATA169,40,141,4,212,169,7,141
  120. 1200 DATA168,193,32,146,193,169,31,141
  121. 1210 DATA4,212,169,20,141,168,193,32
  122. 1220 DATA146,193,32,134,193,96,162,0
  123. 1230 DATA138,157,0,212,232,224,24,208
  124. 1240 DATA251,96,165,162,24,109,168,193
  125. 1250 DATA141,167,193,165,162,205,167,193
  126. 1260 DATA208,249,96,27,76,88,0
  127.